home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / MacPerl ƒ / Perl Source ƒ / MacPerl / MacPerlTest.Script < prev    next >
Text File  |  1994-01-02  |  7KB  |  159 lines
  1. tell application "MacPerl"
  2.     with timeout of 300 seconds
  3.         activate
  4.         -- Ask for the test folder. 
  5.         -- This folder must be writeable.
  6.         set p to Do Script "require \"GUSI.ph\"; &MacPerl'Reply(&MacPerl'Choose(&GUSI'AF_FILE, 0, \"Where are the tests ?\", \"\", &GUSI'CHOOSE_DIR))"
  7.         Do Script "print \"----- :base:cond.t........\\n\""
  8.         Do Script (p & ":base:cond.t")
  9.         Do Script "print \"----- :base:if.t..........\\n\""
  10.         Do Script (p & ":base:if.t")
  11.         Do Script "print \"----- :base:lex.t.........\\n\""
  12.         Do Script (p & ":base:lex.t")
  13.         Do Script "print \"----- :base:pat.t.........\\n\""
  14.         Do Script (p & ":base:pat.t")
  15.         Do Script "print \"----- :base:term.t........\\n\""
  16.         Do Script (p & ":base:term.t")
  17.         Do Script "print \"----- :cmd:elsif.t........\\n\""
  18.         Do Script (p & ":cmd:elsif.t")
  19.         Do Script "print \"----- :cmd:for.t..........\\n\""
  20.         Do Script (p & ":cmd:for.t")
  21.         Do Script "print \"----- :cmd:mod.t..........\\n\""
  22.         Do Script (p & ":cmd:mod.t")
  23.         Do Script "print \"----- :cmd:subval.t.......\\n\""
  24.         Do Script (p & ":cmd:subval.t")
  25.         Do Script "print \"----- :cmd:switch.t.......\\n\""
  26.         Do Script (p & ":cmd:switch.t")
  27.         Do Script "print \"----- :cmd:while.t........\\n\""
  28.         Do Script (p & ":cmd:while.t")
  29.         Do Script "print \"----- :comp:cmdopt.t......\\n\""
  30.         Do Script (p & ":comp:cmdopt.t")
  31.         Do Script "print \"----- :comp:cpp.t.........\\n\""
  32.         Do Script (p & ":comp:cpp.t") with preprocess
  33.         Do Script "print \"----- :comp:decl.t........\\n\""
  34.         Do Script (p & ":comp:decl.t")
  35.         Do Script "print \"----- :comp:multiline.t...\\n\""
  36.         Do Script (p & ":comp:multiline.t")
  37.         Do Script "print \"----- :comp:package.t.....\\n\""
  38.         Do Script (p & ":comp:package.t")
  39.         Do Script "print \"----- :comp:script.t......\\n\""
  40.         Do Script (p & ":comp:script.t")
  41.         Do Script "print \"----- :comp:term.t........\\n\""
  42.         Do Script (p & ":comp:term.t")
  43.         Do Script "print \"----- :io:argv.t..........\\n\""
  44.         Do Script (p & ":io:argv.t")
  45.         Do Script "print \"----- :io:dup.t...........\\n\""
  46.         Do Script (p & ":io:dup.t")
  47.         Do Script "print \"----- :io:fs.t............\\n\""
  48.         Do Script (p & ":io:fs.t")
  49.         Do Script "print \"----- :io:inplace.t.......\\n\""
  50.         Do Script (p & ":io:inplace.t")
  51.         Do Script "print \"----- :io:pipe.t..........\\n\""
  52.         Do Script (p & ":io:pipe.t")
  53.         Do Script "print \"----- :io:print.t.........\\n\""
  54.         Do Script (p & ":io:print.t")
  55.         Do Script "print \"----- :io:tell.t..........\\n\""
  56.         Do Script (p & ":io:tell.t")
  57.         Do Script "print \"----- :lib:big.t..........\\n\""
  58.         Do Script (p & ":lib:big.t")
  59.         Do Script "print \"----- :op:append.t........\\n\""
  60.         Do Script (p & ":op:append.t")
  61.         Do Script "print \"----- :op:array.t.........\\n\""
  62.         Do Script (p & ":op:array.t")
  63.         Do Script "print \"----- :op:auto.t..........\\n\""
  64.         Do Script (p & ":op:auto.t")
  65.         Do Script "print \"----- :op:chop.t..........\\n\""
  66.         Do Script (p & ":op:chop.t")
  67.         Do Script "print \"----- :op:cond.t..........\\n\""
  68.         Do Script (p & ":op:cond.t")
  69.         Do Script "print \"----- :op:dbm.t...........\\n\""
  70.         Do Script (p & ":op:dbm.t")
  71.         Do Script "print \"----- :op:delete.t........\\n\""
  72.         Do Script (p & ":op:delete.t")
  73.         Do Script "print \"----- :op:do.t............\\n\""
  74.         Do Script (p & ":op:do.t")
  75.         Do Script "print \"----- :op:each.t..........\\n\""
  76.         Do Script (p & ":op:each.t")
  77.         Do Script "print \"----- :op:eval.t..........\\n\""
  78.         Do Script (p & ":op:eval.t")
  79.         Do Script "print \"----- :op:exec.t..........\\n\""
  80.         Do Script (p & ":op:exec.t")
  81.         Do Script "print \"----- :op:exp.t...........\\n\""
  82.         Do Script (p & ":op:exp.t")
  83.         Do Script "print \"----- :op:flip.t..........\\n\""
  84.         Do Script (p & ":op:flip.t")
  85.         Do Script "print \"----- :op:fork.t..........\\n\""
  86.         Do Script (p & ":op:fork.t")
  87.         Do Script "print \"----- :op:glob.t..........\\n\""
  88.         Do Script (p & ":op:glob.t")
  89.         Do Script "print \"----- :op:goto.t..........\\n\""
  90.         Do Script (p & ":op:goto.t")
  91.         Do Script "print \"----- :op:groups.t........\\n\""
  92.         Do Script (p & ":op:groups.t")
  93.         Do Script "print \"----- :op:index.t.........\\n\""
  94.         Do Script (p & ":op:index.t")
  95.         Do Script "print \"----- :op:int.t...........\\n\""
  96.         Do Script (p & ":op:int.t")
  97.         Do Script "print \"----- :op:join.t..........\\n\""
  98.         Do Script (p & ":op:join.t")
  99.         Do Script "print \"----- :op:list.t..........\\n\""
  100.         Do Script (p & ":op:list.t")
  101.         Do Script "print \"----- :op:local.t.........\\n\""
  102.         Do Script (p & ":op:local.t")
  103.         Do Script "print \"----- :op:magic.t.........\\n\""
  104.         Do Script (p & ":op:magic.t")
  105.         Do Script "print \"----- :op:mkdir.t.........\\n\""
  106.         Do Script (p & ":op:mkdir.t")
  107.         Do Script "print \"----- :op:oct.t...........\\n\""
  108.         Do Script (p & ":op:oct.t")
  109.         Do Script "print \"----- :op:ord.t...........\\n\""
  110.         Do Script (p & ":op:ord.t")
  111.         Do Script "print \"----- :op:pack.t..........\\n\""
  112.         Do Script (p & ":op:pack.t")
  113.         Do Script "print \"----- :op:pat.t...........\\n\""
  114.         Do Script (p & ":op:pat.t")
  115.         Do Script "print \"----- :op:push.t..........\\n\""
  116.         Do Script (p & ":op:push.t")
  117.         Do Script "print \"----- :op:range.t.........\\n\""
  118.         Do Script (p & ":op:range.t")
  119.         Do Script "print \"----- :op:read.t..........\\n\""
  120.         Do Script (p & ":op:read.t")
  121.         Do Script "print \"----- :op:readdir.t.......\\n\""
  122.         Do Script (p & ":op:readdir.t")
  123.         Do Script "print \"----- :op:regexp.t........\\n\""
  124.         Do Script (p & ":op:regexp.t")
  125.         Do Script "print \"----- :op:repeat.t........\\n\""
  126.         Do Script (p & ":op:repeat.t")
  127.         Do Script "print \"----- :op:s.t.............\\n\""
  128.         Do Script (p & ":op:s.t")
  129.         Do Script "print \"----- :op:sleep.t.........\\n\""
  130.         Do Script (p & ":op:sleep.t")
  131.         Do Script "print \"----- :op:sort.t..........\\n\""
  132.         Do Script (p & ":op:sort.t")
  133.         Do Script "print \"----- :op:split.t.........\\n\""
  134.         Do Script (p & ":op:split.t")
  135.         Do Script "print \"----- :op:sprintf.t.......\\n\""
  136.         Do Script (p & ":op:sprintf.t")
  137.         Do Script "print \"----- :op:stat.t..........\\n\""
  138.         Do Script (p & ":op:stat.t")
  139.         Do Script "print \"----- :op:study.t.........\\n\""
  140.         Do Script (p & ":op:study.t")
  141.         Do Script "print \"----- :op:substr.t........\\n\""
  142.         Do Script (p & ":op:substr.t")
  143.         Do Script "print \"----- :op:time.t..........\\n\""
  144.         Do Script (p & ":op:time.t")
  145.         Do Script "print \"----- :op:undef.t.........\\n\""
  146.         Do Script (p & ":op:undef.t")
  147.         Do Script "print \"----- :op:unshift.t.......\\n\""
  148.         Do Script (p & ":op:unshift.t")
  149.         Do Script "print \"----- :op:vec.t...........\\n\""
  150.         Do Script (p & ":op:vec.t")
  151.         Do Script "print \"----- :op:write.t.........\\n\""
  152.         Do Script (p & ":op:write.t")
  153.         Save front Window in file (p & ":MacPerlTest.Out")
  154.         delete text in front Window
  155.         Do Script {(p & ":MacPerlTest"), "evaluate", (p & ":MacPerlTest.Out")}
  156.         Save front Window in file (p & ":MacPerlTest.Result")
  157.     end timeout
  158. end tell
  159.